(lisp_data_to_selection_data): Don't set selection

type if comes from the Lisp object's car.  If the selection
contains a pure ASCII text, always return QSTRING as its type.

diff --git a/src/xselect.c b/src/xselect.c
index 03580b782fee1ce85183143046abd6e56d837da2..c95cc211c1dfe1786aa92f62e5895b1a65445e3d 100644 (file)
--- a/src/xselect.c
+++ b/src/xselect.c
@@ -1765,11 +1765,16 @@ lisp_data_to_selection_data (display, obj,
       *data_ret = x_encode_text (obj, Vnext_selection_coding_system, 1,
                                 (int *) size_ret, &stringp);
       *nofree_ret = (*data_ret == XSTRING (obj)->data);
-      if (EQ (Vnext_selection_coding_system,
-             Qcompound_text_with_extensions))
-       type = QCOMPOUND_TEXT;
-      else if (NILP (type))
-       type = (stringp ? QSTRING : QCOMPOUND_TEXT);
+      if (NILP (type))
+       {
+         if (stringp && *nofree_ret)
+           type = QSTRING;
+         else if (EQ (Vnext_selection_coding_system,
+                      Qcompound_text_with_extensions))
+           type = QCOMPOUND_TEXT;
+         else
+           type = (stringp ? QSTRING : QCOMPOUND_TEXT);
+       }
       Vlast_coding_system_used = (*nofree_ret
                                  ? Qraw_text
                                  : Vnext_selection_coding_system);